home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / ROMENDEN.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-05-12  |  1.6 KB  |  37 lines
  1. 10 DIM H$(50),R(50):CLS:' ROMEN RAKAMINDAN ÇEVÿRÿ YAPAN PROGRAM. ROMENDEN.BAS
  2. 20 INPUT "SAYIYI GIRIN ",S$: 'MURAT NECÿOªLU
  3. 30    HA$=CHR$(10)+"HATALI GIRIS"
  4. 40    S=LEN(S$)
  5. 50    IF S>15 THEN PRINT HA$ :PRINT:BEEP:END
  6. 60 FOR Q=1 TO S
  7. 70    H$(Q)=MID$(S$,Q,1) : NEXT
  8. 80 FOR Q=1 TO S
  9. 90  IF H$(Q)="I" THEN R(Q)=1   :I=I+1:IF I>4 THEN PRINT HA$:END ELSE GOTO 170
  10. 100  IF H$(Q)="V" THEN R(Q)=5   :V=V+1:IF V>1 THEN PRINT HA$:END ELSE GOTO 170
  11. 110  IF H$(Q)="X" THEN R(Q)=10  :X=X+1:IF X>4 THEN PRINT HA$:END ELSE GOTO 170
  12. 120  IF H$(Q)="L" THEN R(Q)=50  :L=L+1:IF L>1 THEN PRINT HA$:END ELSE GOTO 170
  13. 130  IF H$(Q)="C" THEN R(Q)=100 :C=C+1:IF C>4 THEN PRINT HA$:END ELSE GOTO 170
  14. 140  IF H$(Q)="D" THEN R(Q)=500 :D=D+1:IF D>1 THEN PRINT HA$:END ELSE GOTO 170
  15. 150  IF H$(Q)="M" THEN R(Q)=1000:M=M+1:IF M>4 THEN PRINT HA$:END ELSE GOTO 170
  16. 160   H=1
  17. 170  IF H=1 THEN PRINT:PRINT "ROMEN RAKAMI YAZILMADI":SOUND 3000,5:END ELSE NEXT
  18. 180 T=T+R(S):
  19. 190 FOR Q=S TO 2 STEP -1
  20. 200    IF R(Q-2)<R(Q-1) AND R(Q)>R(Q-1) THEN PRINT HA$:SOUND 1000,5:END
  21. 210    IF R(Q)=R(Q-2) AND R(Q)<R(Q-1)   THEN PRINT HA$:SOUND 1500,7:END
  22. 220 '
  23. 230    IF R(Q-1)>=R(Q) THEN  T=T+R(Q-1) ELSE GOSUB 270:T=T-R(Q-1)
  24. 240 NEXT
  25. 250 CLS: PRINT S$;"=";T
  26. 260 END
  27. 270 '
  28. 280 IF R(Q-2)=R(Q-1) THEN PRINT HA$:SOUND 2500,5:END
  29. 290 IF R(Q-1)=1    THEN 340
  30. 300 IF R(Q-1)=10   THEN 350
  31. 310 IF R(Q-1)=100  THEN 360
  32. 320  PRINT HA$: SOUND 5500,10 : END
  33. 330 '
  34. 340   IF R(Q)=5   OR R(Q)=10   THEN RETURN ELSE PRINT HA$:SOUND 3500,5:END
  35. 350   IF R(Q)=50  OR R(Q)=100  THEN RETURN ELSE PRINT HA$:SOUND 4000,5:END
  36. 360   IF R(Q)=500 OR R(Q)=1000 THEN RETURN ELSE PRINT HA$:SOUND 5000,10
  37.